home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / BASIC-PRINCIPLES / same-integer.xwx < prev    next >
Encoding:
Text File  |  1994-12-04  |  624 b   |  21 lines
  1.  
  2. % This sample shows how to
  3. % - use a pointer in order to edit the same VAR-PARAMETER twice
  4. % - write objects in an object-oriented form instead of two tables
  5.  
  6. Malloc(90);
  7. @xbwstart(("test") ("color"));
  8. wdw(TEST 1 1 25 9 StandardWDW);
  9.  
  10. o(TEST01 I I 1  3 23 1 Standard); bg(TEST01 . 1234);              eg();
  11. o(TEST02 I I 1  5 23 1 Standard); bg(TEST02 . (ptr)OBJ:TEST01.V); eg();
  12.                                             % ^^^^^^^^^^^^^^^^^^
  13.                                             %      ^Pointer^
  14. o(TEST03 S . 14 7 10 1 Secure  );
  15.   bg(TEST03 . ("Stop XbW")    );
  16.   cn(rqK      ("@xbwstop();") );
  17.   eg();
  18.  
  19. End();
  20.  
  21.